home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d26
/
extol30.arc
/
TESTER.EXT
< prev
next >
Wrap
Text File
|
1987-10-31
|
1KB
|
55 lines
% This program should test all major functions of EXTOL v. 3.0
%
.define drilltest
You should now be in the drill
The variable entered was <drillvar>.
Enter "x" to exit drill or anything else to continue.
.accept
.reset(0)
.match(0,1).x.X.
.if match(0,1) then do
.exit
.else
You are continuing !
.enddo
Press return to leave drill.
.accept
.end
% End of drill code
Monitor will be set to color and Mode will be initially set to MEDG
Press return to continue
.accept
.monitor=COLOR
.mode=MEDG
Press return to load and display EXTOL.PIC
.accept
.screenfile=EXTOL.PIC
.mode=TEXT
.<drillvar>=DRILLTEST
The drill is now being executed !
.perform drilltest
The drill should now be over !
Press return to test the position command.
.accept
.clear
.position(10,15)
This should be at position 10, 15.
.position(24,1)
This should be at position 24, 1.
Press return to continue
.accept
.clear
.caseon
Enter either "A" or "B" to test .goto command.
.accept
.reset(0)
.match(0,1).A.
.goto(1).Bentered.Aentered.
:Bentered
You must have entered something other than A!
.goto.continue
:Aentered
You must have entered A!
:continue
.stop